home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / fade-tp / fadeaway.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-27  |  645 b   |  18 lines
  1. PROGRAM FadeAway;           { Cheesy demo of FADE.TPU }
  2.  
  3. USES Fade;                  { You of course have to USE it! }
  4.  
  5. BEGIN
  6.    writeln ('Blah....  Blah blah blah blah....');
  7.    writeln (' I''m just writing this in case there wasn''t anything on the');
  8.    writeln (' screen previous to the FadeOut call.  This is lame..  It''s');
  9.    writeln (' almost to the point where the documentation is longer than');
  10.    writeln (' the code itself...  I bet it is..  Ah well..  l8r.');
  11.    writeln;
  12.    writeln ('Hit enter to see the screen fade out.');
  13.    readln;
  14.    FadeOut;
  15.    ResetTextMode;
  16.    writeln (' That was cool.');
  17.    readln
  18. END.